COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "Q"
C00004 ENDMK
C⊗;
BEGIN "Q"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "DPYIII[SYS,BGB]" SOURCE_FILE;
	ITG CNT1,CNT2;
	DEFINE Q⊂="QUICK_CODE";

	SHORT ITG X,Y,VX,VY,AX,AY;
	LABEL SA,B;
	SAFE INTEGER ARRAY DPYBUF [0:1000];
	ITG P;SAFE INTEGER ARRAY PDL[0:100];

	FOR X←1 TO 40 DO OUTSTR(↓);X←600;
B:	Q⊂ LABEL L;MOVE PDL;MOVEM P;
	MOVEI SA;HRLI '400001;'047000400003;JFCL;JFCL;
	L: MOVEI 10,20;'047000000031 10,;JRST L;⊃;

SA:	Q⊂ LABEL L1,L2;AOS CNT1;MOVE '17,PDL;JRST 3,@L1;L1: L2;L2:⊃;
	IF X>500 THEN ⊂ X ← -500; Y←500; VX ← 3; VY ← 0;⊃;
BEGIN
	VY ← VY - 2;
	X ← X + VX;
	Y ← Y + VY;
	IF Y<-500 THEN ⊂ VY ← ABS(VY*0.85);Y ← -500+VY;⊃;
	DPYSET(DPYBUF);
	AIVECT(-500,-500);
	AVECT(+500,-500);
	AVECT(+500,+500);
	AVECT(-500,+500);
	AVECT(-500,-500);
	AIVECT(X+10,Y); AVECT(X+7,Y+7);
	AVECT(X,Y+10); AVECT(X-7,Y+7);
	AVECT(X-10,Y); AVECT(X-7,Y-7);
	AVECT(X,Y-10); AVECT(X+7,Y-7);
	AVECT(X+10,Y);
	DPYOUT(1);
	Q⊂ AOS CNT2;JRST 4,;⊃;
END;
END;